home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / yase.arc / CASE.ASM next >
Assembly Source File  |  1986-12-13  |  2KB  |  49 lines
  1. ******************************************************************
  2. * COPYRIGHT (C) 1986 by Donald Krantz and James Stanley
  3. * - Note: This is a real, live, actual, registered copyright,
  4. *   and should be treated as such. This source code is from
  5. *   the book "68000 Assembly Language", Krantz and Stanley,
  6. *   Addison-Wesley Publishing Company, Reading, MA, 1986.
  7. * 
  8. *   Permission granted by the authors for non-commercial use
  9. *   in programs released to the public domain, as long as this
  10. *   copyright notice remains attached and visible.
  11. *
  12. ****************************************************************
  13. * CASE - Case statement executor
  14. *
  15. *    ENTRY:    A0 contains address of case table
  16. *        D0 contains case selector value
  17. *
  18. *    Case Table:
  19. *        dc.w    number of valid options
  20. *        dc.w    first match value
  21. *        dc.l    address of first case arm
  22. *        dc.w    second match value
  23. *        dc.l    address of second case arm
  24. *        . . .
  25. *        dc.w    n'th match value
  26. *        dc.l    address of n'th case arm
  27. *        dc.l    default (no match) arm
  28. *
  29. *    EXIT:    A0 is undefined.
  30. *        D0 retains case selector value.
  31. *
  32.     .xdef    case
  33. case:
  34.     move.l    d1,-(a7)    * save caller's D1
  35.     move.w    (a0)+,d1    * get case value count
  36.     subq.w    #1,d1        * adjust count value
  37. loop:
  38.     cmp.w    (a0)+,d0    * Check against match value
  39.     beq    done        * found it.
  40.     addq.l    #4,a0        * move past useless case arm
  41.     dbra    d1,loop        * try again
  42. done:
  43.     move.l    (a7)+,d1    * restore caller's d1
  44.     move.l    (a0),a0        * get jump address
  45.     jmp    (A0)        * go execute case arm. 
  46. *
  47. *** Note: return from case arm is to statement following ********
  48. *** the call to this routine ************************************
  49.